﻿Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AssetVisionXAuto.TK.SetConnection(XL.DB.DBDecl.DBType.SQLServer, ".", "av_test")
        Dim staffList As New AssetVisionXAuto.FTs.FT_M_AV_STAFF
        AssetVisionXAuto.Facade.AfBizMaster.FillFT_M_AV_STAFF(Nothing, staffList)

        Me.GridControl1.DataSource = staffList

    End Sub

    'Private Sub SimpleButton_PrinLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton_PrinLabel.Click
    '    Dim btApp As New BarTender.Application
    '    Dim btFormat As BarTender.Format = btApp.Formats.Open("c:\1.btw")

    '    Dim names As New ArrayList
    '    For Each namedSubString As BarTender.SubString In btFormat.NamedSubStrings
    '        names.Add(namedSubString.Name)
    '    Next

    '    btFormat.SetNamedSubStringValue("Barcode1", Me.TextEdit_Barcode.Text)
    '    btFormat.PrintOut()
    '    btFormat.Close()

    'End Sub
End Class